home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / global.asa < prev    next >
Encoding:
Text File  |  2003-02-21  |  1.6 KB  |  53 lines
  1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
  2. '+-------------------------------------------------------------------------
  3. '
  4. '  Microsoft Windows Media
  5. '  Copyright (C) Microsoft Corporation. All rights reserved.
  6. '
  7. '  File:       Global.asp
  8. '
  9. '  Contents:
  10. '
  11. '--------------------------------------------------------------------------
  12.  
  13.  
  14. '////////////////////////////////////////////////////////////////
  15. Sub Appplication_OnStart
  16.     Application( "strLocalHostName" ) = Empty
  17. '    Application( "localhostDNSName" ) = Request.ServerVariables( "SERVER_NAME" )
  18. '    Application( "localhostCName" ) = Server.CreateObject("WScript.Network").ComputerName
  19.     Application( "strHostIPAddress" ) = Request.ServerVariables( "LOCAL_ADDR" )
  20.     Application( "bLocalHostHasWMS" ) = Empty
  21.     Application( "dwDefaultRefreshRate" ) = 60
  22. end sub
  23.  
  24.  
  25. '////////////////////////////////////////////////////////////////
  26. Sub Session_OnStart    
  27.  
  28.     session.timeout = 60
  29.  
  30.     Session( "Initialized" ) = FALSE
  31.     Session( "LocalHostWinName" ) = ""
  32.     
  33.     ' sniff the browser as few times as possible, since it won't change from session to session
  34.     Session( "bNetscape" ) = ""
  35.     Session( "BrowserVersion" ) = ""
  36.     Session( "UserAgent" ) = ""
  37.     Session( "cssName" ) = ""
  38.     
  39.     Session( "certDetected" ) = ""
  40.  
  41.     ' Set locale
  42.     Session.LCID = "&H0409"
  43.  
  44.     ' use UTF-8 for encoding.  See also the @CODEPAGE statement at the top of locstrings.h
  45.     Session.CodePage = 65001
  46. End Sub
  47.  
  48. '////////////////////////////////////////////////////////////////
  49. Sub Session_OnEnd
  50. end sub
  51. </SCRIPT>
  52.  
  53.